home *** CD-ROM | disk | FTP | other *** search
/ Dictionaries & Language / Dictionaries and Language (Chestnut CD-ROM) (1993).iso / word_p / pcwriteb / workdisk.bat < prev    next >
Encoding:
DOS Batch File  |  1989-09-27  |  6.0 KB  |  206 lines
  1. echo off
  2. echo Making PC-Write Work Disk
  3. echo This WON'T change CONFIG.SYS or AUTOEXEC.BAT files
  4. echo CONFIG.SYS needs FILES=9 or more for some features
  5. echo .
  6. getyn √ \%1
  7. if errorlevel 1 goto z
  8. :c
  9. set t=%1
  10. set b=2
  11. set w=1
  12. getyn Type Y for 5.25 inch floppy disks, N for 3.5 inch
  13. if not errorlevel 1 goto e
  14. set b=3
  15. set w=2
  16. :e
  17. getyn Do you want to do a backup of each PC-Write disk?
  18. if errorlevel 1 goto f
  19. set b=0
  20. :f
  21. getyn ≡B0
  22. if errorlevel 1 goto g
  23. getyn Do you have %b% blank, formatted disks for backups?
  24. if not errorlevel 1 goto z
  25. set d=%2
  26. if %2x==x set d=B:
  27. echo NOTE: If you have only one floppy drive, when we say "Insert disk for
  28. echo   backup in drive %d%", wait until DOS says "insert disk for drive %d%"
  29. getyn Backups will be made on drive %d%, ok?
  30. if errorlevel 1 goto g
  31. echo Enter command like "WORKDISK C:\PCW\ A:" or "WORKDISK A: A:" where
  32. echo first name is place for work disk, second is the drive for backups
  33. goto z
  34. :g
  35. getyn Type Y if installing on hard disk, N if on floppy
  36. echo .
  37. if errorlevel 1 goto h
  38. getyn Do you have %w% blank, formatted disks for work disks?
  39. if not errorlevel 1 goto z
  40. if %1x==x set t=B:
  41. getyn Work disks will be made on drive %t%, ok?
  42. if errorlevel 1 goto i
  43. echo Enter command like WORKDISK A: to select drive
  44. goto z
  45. :h
  46. set w=0
  47. if not %1x==x goto j
  48. getyn Work directory will be C:\PCW\, ok? Type Y if unsure
  49. if errorlevel 1 goto k
  50. echo Enter command like WORKDISK C:\PCW\ to select directory
  51. goto z
  52. :k
  53. echo If C:\PCW\ exists, ignore "unable to create" message
  54. echo on
  55. mkdir C:\PCW
  56. echo off
  57. set t=c:\pcw\
  58. goto i
  59. :j
  60. getyn Your work directory will be %t%, ok?
  61. if not errorlevel 1 goto z
  62. :i
  63. echo .
  64. :q
  65. if exist ed.exe goto r
  66. getyn Insert PC-Write Program disk in default drive, type Y
  67. if not errorlevel 1 goto z
  68. goto q
  69. :r
  70. getyn Do you want your registration number on the front screen?
  71. if not errorlevel 1 goto s
  72. echo Wait...
  73. ed =
  74. if errorlevel 1 goto r
  75. :s
  76. getyn Do you want your own special message on the front screen?
  77. if not errorlevel 1 goto t
  78. echo Wait...
  79. ed +
  80. if errorlevel 1 goto s
  81. :t
  82. getyn ≡B0
  83. if errorlevel 1 goto u
  84. getyn Insert blank disk for Program Disk backup in drive %d%, type Y
  85. if not errorlevel 1 goto u
  86. echo on
  87. copy *.* %d%
  88. echo off
  89. :u
  90. getyn ≡W0
  91. if errorlevel 1 goto v
  92. getyn Insert blank disk to become the Work Disk in drive %t%, type Y
  93. if not errorlevel 1 goto z
  94. :v
  95. copy getyn.com %t%()
  96. getyn ε %t%()
  97. if errorlevel 1 goto l
  98. echo Cannot copy files to %t%; have to cancel WORKDISK;
  99. echo Check that %t% is big enough, not write-protected;
  100. echo If %t% is directory, make sure it ends with a "\";
  101. echo If %t% doesn't exist, use MKDIR %t% command WITHOUT
  102. echo Final "\" to create it; for example:  MKDIR C:\PCW
  103. goto z
  104. :l
  105. if not exist () goto n
  106. getyn ≡W0
  107. if errorlevel 1 goto o
  108. echo Default drive %t% is also your work disk drive
  109. echo Run WORKDISK again, giving another drive
  110. goto p
  111. :o
  112. echo Default directory %t% is also your work directory. Create
  113. echo another work directory, and run WORKDISK giving this directory
  114. :p
  115. del %t%()
  116. goto z
  117. :n
  118. del %t%()
  119. echo .
  120. getyn Do you want the main PC-Write program? Type Y if unsure
  121. if errorlevel 1 copy ed.exe %t%ed.exe
  122. getyn ε %t%pr.exe
  123. if not errorlevel 1 goto w
  124. getyn Your file PR.EXE is obsolete; delete it? Type Y if unsure
  125. if errorlevel 1 del %t%pr.exe
  126. :w
  127. echo Old PC-Write's used PR command to print from DOS
  128. echo   Now the ED command with /P switch is used
  129. echo   The PR.BAT file lets you use a PR command
  130. getyn Do you want to use this PR command? Type N if unsure
  131. if not errorlevel 1 goto x
  132. echo ED %%1 %%2 %%3 %%4 %%5 %%6 /P > %t%pr.bat
  133. :x
  134. echo .
  135. set h=0
  136. echo Main Help file has 45 help screens but takes 75K of disk space.
  137. echo   There are smaller beginner and advanced Help files available.
  138. getyn Do you want this main PC-Write Help file? Type Y if unsure
  139. if not errorlevel 1 goto b
  140. copy ed.hlp %t%ed.hlp
  141. set h=1
  142. :b
  143. if errorlevel 1 copy ed.hlp %t%ed.hlp
  144. echo .
  145. getyn Do you want to make an Edit Control File? Type Y if unsure
  146. if not errorlevel 1 goto y
  147. copy ed.def %t%ed.def
  148. echo If have an extended keyboard (with F11, F12, middle keypad):
  149. echo   You can use F11, F12, and re-assign the middle keypad, if you type Y next,
  150. echo   but some computers "hang" when you load or exit PC-Write with this option;
  151. echo   then you must run WORKDISK again and type N at this prompt.
  152. getyn   Do you want to use extended keys? Type N if unsure
  153. if not errorlevel 1 goto ke
  154. echo &J:16>>%t%ed.def
  155. :ke
  156. getyn Do you have the old Tandy 1000 keyboard? Type N if unsure
  157. if not errorlevel 1 goto d
  158. copy ed.trs %t%ed.def
  159. echo Old Tandy keyboards are not standard
  160. goto kb
  161. :d
  162. getyn Is your keyboard sometimes incompatible? Type N if unsure
  163. if not errorlevel 1 goto kc
  164. copy ed.spc %t%ed.def
  165. echo The file ED.SPC may help
  166. :kb
  167. echo You need to substitute some keys, such as Ctl-V for
  168. echo Scroll Lock. Type the file ED.DEF for a complete list
  169. :kc
  170. getyn Do you want to edit on a color monitor ? Type N if unsure
  171. if errorlevel 1 echo %%C>>%t%ed.def
  172. getyn Do you want the three reminder lines on? Type Y if unsure
  173. if errorlevel 1 echo %%M>>%t%ed.def
  174. getyn Do you want automatic save every 5 min.? Type Y if unsure
  175. if errorlevel 1 echo %%R] &R:5>>%t%ed.def
  176. set m=0
  177. echo Type N for default ruler margins, at columns 1 and 78.
  178. echo   To get 1 inch PRINT margins (ruler margins 1 and 65,
  179. getyn   and 1 inch extra left, top, bottom margins) type Y
  180. if not errorlevel 1 goto y
  181. set m=1
  182. echo  L---+---T1----+-T--2----T----3--T-+----4T---+---T5----+-T--6----R>>%t%ed.def
  183. echo  .X:10>>%t%ed.def
  184. echo  .XT:6>>%t%ed.def
  185. echo  .XB:6>>%t%ed.def
  186. :y
  187. if exist menuprt1.exe goto m
  188. getyn Do you have a copy of the PC-Write Utility disk?
  189. if errorlevel 1 goto a
  190. echo Without a utility diskette, you can't use print
  191. echo effects like bold and underline or use a mouse,
  192. echo but you can edit and do basic printing.
  193. goto z
  194. :a
  195. getyn Insert PC-Write Utility diskette in default drive, type Y
  196. if not errorlevel 1 goto z
  197. :m
  198. WORKUTIL
  199. :z
  200. set t=
  201. set d=
  202. set b=
  203. set w=
  204. set h=
  205. set m=
  206.